Option Explicit
Sub F_Sample031()
   'Microsoft DAO 3.6 Object Library ]wޥζ
   'ոF_Data.mdb F_Qry02d
    Dim myDb       As DAO.Database
    Dim myQry      As DAO.QueryDef
    Dim myPrmAr    As Variant
    Dim myFileName As String
    Dim myQryName  As String
    Dim myKey      As String
    Dim i          As Long
    myFileName = "F_Data.mdb"			'n檺ɮ
    myQryName = "F_Qry02"        		'n檺d
    Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
    On Error Resume Next
    'RJs
    myDb.TableDefs.Delete "F_Tbl02"
    On Error GoTo 0
    Set myQry = myDb.QueryDefs(myQryName)
    myPrmAr = Array(60)					'wѼ(Iborder)
    With myQry
        If IsArray(myPrmAr) Then
            For i = 0 To UBound(myPrmAr)
                .Parameters(i) = myPrmAr(i)
            Next
        End If
        .Execute
    End With
    MsgBox myPrmAr(0) & "HWCwgbF_Tbl02s@XӤF"
    myDb.Close
    Set myQry = Nothing					'
    Set myDb = Nothing
End Sub
